﻿Imports QLTHUVIEN.DTO
Imports QLTHUVIEN.DAO
Public Class NhaXuatBanBUS

    Public Function LayDanhSach() As DataTable
        Dim nxb As NhaXuatBanDAO = New NhaXuatBanDAO()
        Dim dt As DataTable = nxb.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemNhaXuatBan(ByVal NhaXuatBan As NhaXuatBanDTO)
        Dim nxbDao As New NhaXuatBanDAO()
        nxbDao.ThemNhaXuatBan(NhaXuatBan)
    End Sub

    Public Sub SuaNhaXuatBan(ByVal NhaXuatBan As NhaXuatBanDTO)
        Dim nxbDao As New NhaXuatBanDAO()
        nxbDao.SuaNhaXuatBan(NhaXuatBan)
    End Sub

    Public Sub XoaNhaXuatBan(ByVal NhaXuatBan As NhaXuatBanDTO)
        Dim nxbDao As New NhaXuatBanDAO()
        nxbDao.XoaNhaXuatBan(NhaXuatBan)
    End Sub


End Class
